DDDDDDDDDDDD 
DODDDDDDDDDD 
DDDDDDDDDDDD 


D 

DDDDDDDDDDDD 
DDDDDDDDDDDD 
DDDDDDDDDDDD 


ttt tt Ht St St Se SH SH st Ht Ht 
tt tt tt St 4 SH HH HH HH HH st 


tt tt tt HH 


DODDDDDDDDDD 
DDDDDDDDDDDD 
— 


D 

DDDDDDDDDDDD 
DDDDDDDDDDDD 
DDDDDDDDDDDD 


| 
SS  ) 
AAA RI I HH 


Aas 
44 
a4 
4444 
a4 
a4 


**F ILE**1D**DTSMAIN 


DODDDDDD TITTTTITTT SSSSSSSS MM MM AAAAAA III] NN NN 
DDDDDDDD TITTTTTITT SSSSSSSS MM MM AAAAAA Ililll NN NN 
dD DD TT $$ MMMM MMMM AA AA II NN NN 
DD dD TT SS MMMM MMMM AA AA II NN NN 
DD DD TT SS MM MM MM OAA AA II NNNN NN 
dD DD TT SS MM MM MM AA AA II NNN NN 
dD oD TT SSSSSS MM MM AA AA II NN NN NN 
DD DD TT SSSSSS MM MM AA AA I] NN NN NN 
DD dD TT SS MM MM AAAAAAAAAA I] N NNNN 
dD DD TT SS MM MM AAAAAAAAAA I] NN NNNN 
dD DD TT SS MM MM AA AA II NN NN cove 
dD DD TT SS MM MM AA AA II NN NN eoee 
DDDDDDDD TT SSSSSSSS MM MM AA AA III! NN NN cove 
DDDDDDDD TT SSSSSSSS MM MM AA AA III NN NN eoee 
LL III! SSSSSSSS 
LL HII! SSSSSSSS 
LL I] SS 
LL II $$ 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] $$ 
LL I] SS 
LL I] SS 
LLELLLLELLL III SSSSSSSS 
LLLLLLLLLL HI! SSSSSSSS 
| 


- DTS MAINLINE 16-SEP-1984 01:24:51 VAX/VMS Macro V04-00 Page 0 


OMMAND oo pata SYNTAX 
eGR ARal ONS 


C 
D 
TSTSSTART_DTS = MAINLINE 


P 
I 
C 
P 
$ 
P 
$s 
P 
C 
A 
T 
3 


a ———— 


dD 4 
TSTSOTSMAIN - DTS MAINLINE 16-SEP-19 4: AX/VM cro_v04-00 Pa 1 
vousb00 mitt 7 80: $3 38 DTSDTR.S REID TSMAIN.MAR; 1 a (1 


True sisor nen - DTS MAINLINE 
- IDEN v04-0 


) 


PARAAAAAAAAAAAAAAAAAAALALL ALES ASAE LAE A AAAS SERA RRA E EEE RARER EERE RARER SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


0 THE ABOVE Seidl NOTICE. THIS SOFTWARE OR 
THEREOF MAY ote BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
E NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeRPOhaT ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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000 
00 
44 ; : FACILITY: DTS/DTR DECNET TEST PACKAGE 
4 ; S ABSTRACT: 
009 had He ARE wwii TEST cose ats THAT EXERCISE NSP LEVEL 
00 FUNCTIONS ON A DECNET/VAX-11 NODE. DTS (SENDER) INITIATES A TEST 
‘st SEQUENCE WHILE DTR (RECEIVER) IS THE "Bassive PARTNER re PERFORMS 
O00 THE REQUESTED FUNCTION. FIVE BASIC TESTS ARE IMPLEMENTED 

00 1. THE CONNECT TEST EXERCISES THE CONNECT ACCEPT/REJECT LOGIC 
000 WITH/WITHOUT OPTIONAL DATA. 

00 


THROUGHPUT STATISTICS. VARIOUS DATA VALIDATION CHECKS 
AND FLOW CONTROL MECHANISMS MAY BE EWABLED. 


3. THE DISCONNECT TEST EXERCISES = DISCONNECT SYNCHRONOUS/ ABORT 
LOGIC WITH/WITHOUT OPTIONAL DATA 


4. THE serene TEST reel 
COMPUTES THROUGHPUT STATIS 
CHECKS AND FLOW CONTROL MA 


5. ie MISCELLANEOUS TEST EXERCISES DECNET/VAX-11 SPECIFIC 
FUNCTIONS AND VALIDATES ERROR LOGIC. 


: ENVIRONMENT: DTS RUNS IN USER MODE AND REQUIRES NETWORK PRIVILEGE. 


way 4 MESSAGES AND OPTIONALLY 


I 
CS. VARIOUS DATA VALIDATION 
BE ENABL ED. 


; 2. THE DATA TEST TRANSMITS DATA MESSAGES AND OPTIONALLY COMPUTES 
T 
: T 
: Y 
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TSTSDTSMAIN = DTS MAINLINE 16-SEP-1984 01:24:51 VAX/VMS Macro v04-00 Pa 
Vour000 ety 7 89; 2:28 (COTSDTR.SRCIDTSMAIN.MAR; 1 - (9) 
6 28 ; AUTHOR: JAMES A. KRYCKA, CREATION DATE: 11-AUG-77 
6 60 : MODIFICATIONS: 
6¢ : v03-001 JAK0001 yA Krycka 27-JUN-1983 
0000 e ; Make call to LIBSASN_WIH_MBX position independent. 
6 ; x0.1-8 0J00001 Darrell ports 8-December-1979 
0 | ; Change to use LIBSASN_WTH_MB 
0 ; 
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F 4 
NLINE “S po AX/VMS Macro V04-00 
ANGUAGE SYNTAX "er8 138¢ 83; $3 34 DISDTR. SRCIDTSMAIN. MAR; 1 
0 .SBTTL COMMAND LANGUAGE SYNTAX 
§ p++ 
ff t THE DTS COMMAND (FOR VAX/VMS) HAS THE FOLLOWING FORMAT: 
i: 3 $ DTSC/qualifier,...] parameter(/qualifier,...J 
£8 3 WHERE THE COMMAND AND COMMAND QUALIFIERS ARE: 
0 : $ DTSC/NODENAME=xxxxxxICL/SPEED=nnnnnnn) /NOSTAT Tics 1E/NOPRINT 
; /PRINT 
: /NODISPLAY } ... 
: : /DISPLAY=nn 
§ ; AND WHERE THE PARAMETER AND PARAMETER QUALIFIERS ARE ONE OF THE FOLLOWING 
2 & cna CONNECTE /TYPE=REJECT) /NORE TURN 
: /TYPE=ACCEPTICL/RETURN=STANDARD 
30 ; /RETURN=RECEIVED 
3 +... DATAL/TYPE=SINK C/$12E=nnnnn) /HOURS=nnn C/SQUEUE =n CRQUEUE = 
93 : /TYPE=SEQUENCE /MINUTES=nnnn 
94; /TYPE=PATTERN /SECONDS=nnnnnn 
95 : /TYPE=ECHO 
38 : /NOF LOW /NONAK 1E/NOBACK 
98 ;: /FLOW=MESSAGE JC /NAK=nnnJC/BACK=nnn 
13 : /FLOW=SEGMENT 
101 Fine DISCONNECTE/TYPE=SYNCHRONOUS] /NORE TURN 
1 é : PE=ABORT /RETURN=STANDARD 
$i /RETURN=RECE1VED 
105 : ... INTERRUPTC/TYPE=SINK C/S12ZE=nn) /HOURS=nnn C/SQUEUE=nJCRQUEU 
1 $ : /TYPE=SEQUENCE NUTES=nnnn 
107 : /TYPE=PATTERN Teh ctabtennnnen 
108 : /TYPESECHO 
110 : ... MISCELLANEOUSC/TYPE=NAME 
11: /TYPE=OBJECT 
1 : /TYPE=LOGICAL 
Wa 3 
115 : COMMAND QUALIFIER DEFAULTS: 
19 > NODE =<Mibh STRING, 1.€ 9 The LOCAL NODE 
118 : SPEED = 1000000 BAUD (USED FOR STATISTICS) 
119 : STATISTICS 
1 ? 3 NOPRINT 
121 : NODISPLAY 
5 ? CONNECT TEST PARAMETER QUALIFIER DEFAULTS: 
125 : TYPE = ACCEPT 
126 : NORETURN 


| 
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} 


COMMAND LANGUAGE SYNTAX si "Pepa 198 OO:se:38 LorepiR 


PRDRDPPADP DAA & BB BBE EE EAI IIIronn) 
PWN SO ODNANE WN 9 OD NAUNE WN OOONAUE WH" OUOO~ 
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a hk a a a ss a se ss tt it tee 


SSSseses 
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DATA TEST PARAMETER QUALIFIER DEFAULTS: 


= 128, forres) 


DISCONNECT TEST PARAMETER QUALIFIER DEFAULTS: 
TYPE = ABORT 
NORE TURN 


INTERRUPT TEST PARAMETER QUALIFIER DEFAULTS: 
TYPE = 


ROUEUE = = 1 

MISCELLANEOUS TEST PARAMETER QUALIFIER DEFAULTS: 
TYPE = NAME 

NOTES: 


v04 
REID TSMAIN.FAR; 1 


| 
eee ed 


1. A COLON MAY BE USED we OF THE EQUAL_SIGN TO DELIMIT A 


QUALIFIER AND ITS VAL 


2. ONLY THE FIRST FOUR CHARACTERS OF A rong By ‘AT IER, AND 


A NON-NUMBERIC QUALIFIER ¥YALUE ARE SIGNIFICAN 


S£P-198¢ 00:82:28 EDTSDIA.SACIDTSMAINeMAR;1 "°° (3) 
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~SBTTL DECLARATIONS 


RMS DEVICE CHARS 


T 
E 
D 
D 
D 
; D 
Dd 


; INCLUDE FILES: 
) 
D 
L 
Ld 
L 
R 
I 
NONE 
EQUATED SYMBOLS: 
NONE 
STORAGE : 
NONE 


CP. DOO CUM TFN OR. DOO CIM TN OR. OQ 
O00 OFP-P-P-P-_P-P-_P-P- PR. COCO GD 0D0000 00000000 


ee Oe 


Ep 
1 4 
TSTSDTSMAIN - D 16-SEP-1984 01:24: AX/VMS Macro V04-00 
vibe ti TST = MAINLINE §-8 sats vi 84:33:38 DISDTR.SRCIDTSMAIN.MAR; 1 
.SBTTL TSTSSTART_DTS = MAINLINE 
Psect TS not SYMBOL FOR DEBUGGING PURPOSES 


=> 
mn 


COOoooooooo SOOSCCOCSOSOS OOOO OCSOOSOOSOOOOOSOSoOOoOoOSO 


nro 
nm 
_ 
eee 
2 
or 


“ 


i FUNCTIONAL DESCRIPTION: 
NONE 

CALLING SEQUENCE: 
$ RUN DTS 

INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 

SIDE EFFECTS: 
NONE 


So 

So 

t=J 

So 
SoOoOOoOOCOooooooooooooooooooooooooooo 
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ed ed ed ed ed ed = I OQOQOOOOO 


MmMmmmmmnmnwmoo 


Ssssssss 


POR EPOPOPOROPOROPOPOPONONONOPONOPONOPONIPONIPONUPOPIPONIPONOPONOPONPONOPONNPONUPIPUNPINIPONINIIY 2 es 


0000 -ENTRY TSTSSTART_DTS,“M<> ; ENTRY POINT FROM EXECUTIVE 


: OPEN THE PRINT FILE 


SOPEN FAB=W*TSTSPRTFAB ; OPEN THE FILE 

CHECK ; CHECK COMPLETION CODE 
SCONNECT RAB=W*TSTSPRTRAB 3 ESTABLISH A RECORD STREAM 
CHECK_RMS ; CHECK COMPLETION CODE 


} OUTPUT INITIALIZATION MESSAGE TO PRINT FILE 


NAAL WI 220 OD NAW WD SO OD NAU EWN SO OD NAN EWN O OD NOUN EU 9 OONOUE ir 


PERERA AIRIPOPINONONONONININ) 2 2 2 Ss SS SI QO OOOO OOD O00000 


SFAO_S CTRSTR=W*TST$GO 
OUTLEN=W*TSTSGW 
OUTBUF =W*TST$GQ 


TSTSDTSMAIN = DTS MAINLINE 16-SEP-1984 01:24: AX/VMS Macro V04-00 Page 
Vea p08 TSTSSTART DTS = MAINLINE eet $5 :33:33 LOTSDIR. SREIDTSMAIN MAR: 1 ° 
Pi=#TST$GT_DTS- 3; INSERT OTS ID 
P2=#TSTSGT_VERSION- 3; INSERT OTS VERSION NUMBER 
P5=#0 3: INSERT DATE AND TIME 
CHECK_SS : CHECK platus CODE 
FFBB’ 30 BSBW TSTSPRINT_FAO : PRINT MESSAGE 


BOX THAT WILL B 
IGN T 


L USED AS THE ASSOCIATED LINK 
A CHANNEL IT 


: CREATE A TEMPORARY MAL E 


L 
; CHANNEL MAILBOX AND ASS 


N PREPARATION FOR 


; CREATE A CONTROL/INFORMATION PATH TO NETACP 
IATE A MAILBOX WITH THE 


3 778 penta NETWORK 1/0. ALSO ASSOCIA 


ree 


HANNEL. 


SSSSSsssssssooooooocs 


These things are atl done by the LIBSASN_WTH_MBX routine 


Setup mailbox quota 
Save its address 
Mailbox message size 


00009900" 8 DD PUSHL #TSTSK_MAILQUOTA 
5 E MO 


ase tall DD 


0000° CF 
0000° CF 


0000° CF 
00000000°GF 05 
5E 08 


PUN SO OODNAU ES WN OVWONAUE Ws" OO 


SOOSCSCCSOOOOOSOOoOoOSoO 


SP 
PUSHL #TSTSK_MAILBUF 
PUSHAW W*TST$GW_MAILCHAN 
PUSHAW weTSTSGu INKCHAN 


#*A<R > 
PUSHAQ W*TST$GQ_LINKNAME 
CALLS #5,G*LIBSASN_WTH_MBX 


its address too 

Address of mailbox channel 

Address for Link channel 

Those addresses we saved 

The name for the device (_NET) 
Assign the channels and create mbx 
Dump the quota and message size 


ADOL 
CHECK_SS Check the system service status code 


SDOoOoOooooooooocooo 


SN NNN NSO AAAI BPE PPE EPP PPP PP PEEP POO 


ooooovoo RAE DAES Ot tet ert ee ee RP PN Pn Ne SN Oe RR ee ee ree 


0 
0 
0 
0 
0 
0 
0 0 
0 1 
0 5 3; OPEN THE COMMAND FILE 
5 e 
6 SOPEN FAB=W*TSTSCMDFAB : OPEN THE FILE 
CHE : CHECK COMPLETION CODE 
: SCONNECT RAB=W*TSTSCMDRAB + ESTABLISH A RECORD STREAM 
} CHECK_RMS : CHECK COMPLETION CODE 
1s 
3 APPLY COMMAND QUALIFIER DEFAULTS (NOT PARAMETER QUALIFIER DEFAULTS). 
+ THESE QUAL IELERS ARE STICKY’ IN THE SENSE THAT ONCE MODIFIED BY A 
: COMMAND, THEY RETAIN THEIR NEW SETTING UNTIL MODIFIED AGAIN BY A COMMAND. 
5 : THIS IS IN CONTRAST TO PARAMETER QUALIFIERS WHICH ARE RESET TO THEIR 
6 : ORIGINAL DEFAULT VALUES BEFORE PARSING EACH COMMAND. 
0000'CF 00 90 5 MOV #DFT_K_DISPLAY,W°TST$GB_DISPLAY ; CNOJDISPLAY 
0000' CF 34 : CLR W*TSTSGT_NODENAME : NODENAME IS NULL STRING 
000° CF MOVB HFT K PRINT West G6B_PRINT + CNOJPRINT 
0000' CF £4240 BF p 3 MOVL #DFT“KTSPEED. W*TSTSGL SPEED ; LINE SPEED IN BAUD 
‘CF «O01 ; MOVE #DFT“K“STAT,W*TST$GB_STAT : ENOJSTATISTICS 
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58 
0000' CF 


Q000'CF 00286982 8F 
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D4 
D4 
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SOoOCCoOOCOoOoOOOoOOCOOCOOOOSOOOOOOSOOoOSO 


sesssssss SOOoooooceoocoooSa 
NRHN HMMMMo So OOC OCCT FOMOMOrOOnAaOao 


oS 
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NLINE 16-SEP-1984 01:24: AX/VMS Macro V04-00 Page 
“OTS = MAINLINE $7 or 1382 93:33:33 DTSDTR.SRCJDTSMAIN.MAR; 1 ° (d 
> i} 
: 3 PROCESS THE NEXT COMMAND 
: NEXT_ COMMAND : 3 
10 CLRLsR11 ; CLEAR ALL COMMAND PARSE FLAGS 
1 CLRL_ W*TSTSGL_VALID ; CLEAR ALL VALID QUALIFIER FLAGS 
\ BISL2 #VLD_M_DISPLAY- ; DENOTE VALID QUALIFIERS 
1 'VLD_M_ NAME=- 3 
14 iVLD"M"NODISPLAY=- : 
15 i VLD“M“NOPRINT= : 
16 iVLD“M“NOSTAT= : 
1 iVLD“M“PRINT= : 
18 iVLD"M"SPEED- ; 
1 iVLD“M"STAT,= : 
0 w*TSTSGL_VALID ; 
: INPUT NEXT LINE OF COMMAND 
.* 
é READ_LINE : : 
GET RAB=W*TSTSCMDRAB + READ NEXT LINE 
8 CHECK_RMS + CHECK COMPLETION CODE 
BLBS ~ R1,20$ ; WAS IT END-OF-FILE OR TIME-OUT? 
: 10$: BRW TERMINATE : YES, EXIT 
5 : PARSE THE COMMAND 
.* 
$ 20$:  MOVL W*TSTSCMDRAB+RABSL_RBF.RS ; GET ADDRESS OF COMMAND STRING 
3 MOVZWL W*TSTSCMDRAB+RABSW_RSZ.R9 ; GET LENGTH OF COMMAND STRING 
9 
40 
41 
2g 
44 
rf 
i 
rk 
29 


ECHO THE COMMAND 


BBS #0EVSV_TRM,- 
W*TSTSCMDFAB+FABSL_DEV,- 
25$ ;DONT ECHO IF TERMINAL DEVICE 
MOVW R9,W*°TST$GW_PRTLEN 
MOVL  R8.W°TSTSPRTRAB+RABSL_RBF 
BSBW =: TST SPRINT FAO 
MOVAL W*TST$GB_PRTBUF,- 
‘on W*TSTSPRTRAB+RABSL_RBF 
ADDL2 RB, RO : CALCULATE ADDRESS OF END OF 
1 : COMMAND BUFFER + 1 
3 CMPB ss #*A\E\,, (RB) : IS IT REQUEST TO EXIT? 
BEQL 10s : BRANCH IF YES 
54 CALLS #0,W*TSTSPARSE | PARSE THE COMMAND LINE 
5 BBCC #FLG_V_PARSERROR,R11,30$ ; BRANCH IF PARSE WAS SUCCESSFUL 
6 SFAO_S CTRSTREW°TST$GQ_PARSE- ; FORMAT MESSAGE 
OUTLEN=W*TSTSGW"PRILEN- ; 
8 QUTBUF =WeTST GO"PRIBUF= ; 
Pl=#TST$GT_DTS * INSERT DTS I 
60 CHECK_SS > CHECK STATUS CODE 
6 BSBU ~ TSTSPRINT_FAO : PRINT MESSAGE 


L 4 


TSTSDTSMAIN = DTS MAINLINE 1 4 01:24: X/VMS v04 rw 
vour000 TSTSSTA bt - MAINLINE 8735p 71386 $0; 2: ‘3B or DTSDTR.S fbTs SMAIN.MAR; 1 
11 BRB NEXT_ COMMAND ¢ START AGAIN 
91 5B f E4 30$ BBSC SELGoV RULTILINE R11, : GET ANOTHER LINE IF REQUIRED 


COMMAND PARSING IS COMPLETE. R10 = COMMAND PARAMETER (TESTTYPE). 


START TO BUILD THE rest REQUEST STRING WHICH WILL BE SENT TO DTR_IN 
: THE USERDATA FIELD OF THE NSP CONNECT INITIATE MESSAGE. THE REQUEST 
; STRING IS ASSEMBLED AS A COUNTED ASCII STRING. 


5B 0000'CF bE MOVAL W*TST$GT_USERDATA,R11 GET ADDRESS OF USERDATA STRING 
01 aB «5A «(0000°CF O81 ADDBS W*TST$GB~PRINT,R10, 1( crits ¢ UPDATE DTS/R TESTTYPE FIELD 
WHICH 1S DERIVED FROM BOTH 
COMMA PARAMETER AND 
: THE / NOIPRINT QUALIFIER 
$ DISPATCH TO APPROPRIATE ROUTINE FOR EXECUTING THE COMMAND 
4S'AF OF PUSHAB B*TEST_COMPLETE ; PUT RETURN ADDRESS ON STACK 
; $0 THAT ROUTINES EXECUTED BY 
: "CASE' CAN EXIT VIA 'RSB' 
SCASEB SELECTOR=R10,DISPL=<- : DISPATCH TO: 
TSTSCONN_DTS- ; CONNECT TEST 
TSTSDATA-DTS= ; DATA TEST 
TSTSDISC“DTS= ; DISCONNECT TEST 
TSTSINTE-DTS- ; INTERRUPT TEST 
TSTSMISC-DTS- : MISCELLANEOUS NSP TEST 


> 


OUTPUT END-OF-TEST MESSAGE TO THE PRINT FILE 


OOO OOO 00 OOO OO 000000090969 60 09 09 09 SINISE NNIO OOA OOOO 


SNIP AAA AAO MME BE EE EAN AAA AAA AA AA AARON INNUNUF 
WAAL WIN ODDNA AE WIN 2S ODNAMAE WINS OD NAME WN =O ODNAUE WN =O OONANE WI 


POA FFM MAAS QOO LMA DP MAMMA INI INI BP PEPE EEO WWOWOCOCOCOCOCIOCO ST 


ee ee ee ee ee ee ee ee = 


am a ek tk eh a ets et ss a ss os = a an — as a as ss 2 a 4 2 ss ts a 2 4 st 


TEST_COMPLETE: § 
4 O'CF 9% 88 = MOV #3,W*TSTSGT_DTSMSG sASSUME THERE IS AN FAO ARG 
0 o"ef D MOVL RO,W*TSTSGL— DTERROR ;SETUP ERROR CODE 
0 be D1 CMPL #1,R0 
4 if BNEQU 1$ 
0000' CF 01 8B 18 Vu #1,W*TSTSGT_DTSMSG 
SPUTMSG_S MSGVEC=W*TSTSGT_DTSMSG- 
FACNAM=W*TST$GQ QUFA ACDESC 
CHECK_SS 3; CHECK STATUS CODE 
10 ; 
} 3; CALCULATE AND PRINT STATISTICS FOR THE DATA AND INTERRUPT TESTS 
1 ce 
01 o0000'CF 91 1 CMPB 0s W*TSTSGB_STAT,#VAL_K_STAT_YES ; ARE STATISTICS DESIRED? 
3 «13 1 BEQLU 108 : "BRANCH IF YES 
FF 31 31 1 58: BRW NEXT COMMAND ; GAIN 
01 5a (91 17 10$: CMPB R1O,BVAL_K_TEST_DATA  ; WAS THIS A DATA TEST? 
C 13 1 BEQLU 208 $ BRANCH IF YES 


ed 


CALCULATE DATA RATES WITH ROUNDED RESULTS STORED IN INTEGER FORMAT 


m 4 
TSTSDTSMAIN = DTS MAINLINE 16-SEP-1984 : AX/VMS Macro V04-00 Page 10 
yeu2b08 TSTSSTART_DTS = MAINLINE -SEP=1 138 84; $3 3h YTS SDTR.SRCJDTSMAIN.MAR; 1 7 td) 
03 5A j 176 4 9 CMPB = RIO, #VAL.K_TEST_INTE =; WAS THIS AN INTERRUPT TEST? 
f 1 4 BNEQU 5$ ; NO, START AGAIN 
900° cE D O01 421 MOVQ W*TSTSGL L AMITINTE, ; YES, COPY TRANSMIT AND RECEIVE 
000' CF ? 4 é W°TSTSGL-XMITDATA : INTE COUNTERS TO DATA COUNTERS 
18A 42h ; 
A 4 ; OUTPUT TEST PARAMETERS TO THE PRINT FILE 
1BA 45? 
52 QO00'CF 3¢ 018A 428 208:  MOVZWL w*TSTSGW_SIZE,R2 : GET MESSAGE SIZE 
B00" EE es 18F 429 SUBL2 W*TST$GL~CLOCK,- 
000' CF 193 4 0 “TSTS$GL~SECONDS :GET TIME TEST R 
5 12 1 ; 4 BNEQU 21$ 'BR IF SOMETIME HAS PASSED 
0000'cF 01 OD 198 4 : ne MOVL  #1,W*TSTSGL_SECONDS sMAKE TIME SMALLEST INCR 
19D 434 SFAO_S CTRSTR=W°TST$GQ_STATI- ; 
19D 435 OUTLEN=W*TSTS$GW-PRILEN- ; 
19) 4 : OUTBUF =W*TST$GQ-PRTBUF= ; 
19D 43 Pi=W*TSTS$GL_SECONDS- § ; DURATION OF TEST IN SECONDS 
19) 4 : pes TST Sct T NODENAME- =: ADDRESS OF NODENAME STRING 
19) 43 su" TSTSGL_S SPEED= : LINE SPEED (BAUD) 
19D 440 2 : MESSAGE S17E IN BYTES 
C0 441 CHECK + CHECK STATUS CODE 
NT_ 3 
FE3A’ 30 O1C3 44 BSB” SS, STSPRI T_FAO PRINT WESSACE 
O1G6 46 
166 445 : CALCULATE DATA TRANSFER TOTALS 
fe Gee: 
QO0O'CF C1 O1C6 448 ADDL3 W°TSTSGL _XMITDATA,= : CALCULATE TOTAL NUMBER OF 
51 0000°¢F 1CA 449 TSTSGL-RECVDATA.R1—s; MESSAGES TRANSFERRED 
52. 51S Ice 430 MULL2 RT Re ; CALCULAT TE E TOTAL NUMBER OF 
53 52 03 9C O1D1 43¢ ROTL  #3,R2,R3 ; CALCULATE TOTAL NUMBER OF 
1545 + BITS TRANSFERRED 
1D5 454 
D5 0455: 
Bs ae 
50 0000'cF 4E 0105 45 CVTLF WeTSTSGL, CONDS RO ; PUT TIME IN FLOATING FORMAT 
1DA 459 ; see MSG/SEC --> fra, R 
59 51 4E OIDA 46 CVILF R1_R ; PUT #MSG IN FLOATING FORMAT 
9 44 O1DD 461 RULES #16,R9 ; CALCULATE MESSAGES PER SECOND 
9 46 OIE 466 DIVF2 RO,RO > 
4 4B 0163 4 CVTRFL R9~R4 + ROUND AND STORE AS INTEGER 
5 D4 166 4 CLRL ORR + DOUBLE PRECISION DIVIDE FOLLOWS 
55 56 54 OA 7B O18B 4 EDIV #10, R4,R4,R5 : SPLIT RESULT INTO X.Y VALUES 
1ED 4 6 y teeee BYTES/SEC --> RO 
9 46E O1€D 4 CVTLE R2,R : PuT #BYTES IN FLOATING FORMAT 
9 46 O1FO 4 DIVF2 ROR + CALCULATE BYTES PER SECOND 
6 48 OS 4 CVTRFL R9~R6 : ROUND AND STORE AS INTEGER 
176 470 ; #eeee BITS/SEC --> R7 
9 6E O1F6 47 CVILF R3.R ; PUT #BITS IN FLOATING FORMAT 
9 46 OF 47¢ DIVF2 RO.R $ CALCULATE BITS PER SECON 
57 48 OFC 47 CVTRFL R 5 $ ROUND AND STORE AS INTEGER 
1FF ar j teeee LINE UTILIBA TION --> {R8,R9) 
50 O000'CF GE OIFF 475 CVILF W°TSTSGL_SPEED,RO ; PUT SPEED IN FLOATING FORMAT 
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Symbol table ets §):33:38 DTSOTR.SRCIDTSMAIN.MAR; 1 . (4) 
$$. TMP1 = 01 TSTSGT_NODENAME eeereeee 
$$. TMP2 = F TSTSGT_USERDATA aeneenee 
SSCOUNT = TSTSGT_VERSI eeneenee = §=6X 
$$T = TSTSGW_LINKCHAN eeeneree § 6X 
DEVSV_TRM = TSTS$GW_MAILCHAN eeeeeere 8 § X 
DFT_K_DISPLAY = TST$GW_PRTLEN eaneeeee =X 
DFT_K_PRINT s TST$GW SIZE eeneeeee 8 
DFT_K_SPEED = F424 TSTSINTE_OTS eeneeeene =X 
DFT _K_STAT = 00000001 TSTSK_MATLBUF aeeeeree =X 
FABSL DEV eeeteeee =X 02 TSTSK-MAILQUOTA eeenenee x 
FLG_V_MULTILINE = 000 1 TSTSMISC_DTS eeeeereer KX 0 
FLG_ V_PARSERROR = 8 8 TSTSPARSE aeeeeeee = § 
K LIST MEB = TSTSPRINT_FAO aeeeeeee 86 
LTBSASA_WTH MBX eeeeeeee =X 03 TSTSPRTIFAB eeneeeee 
NEXT COMMAND 888 AA R 0 TSTSPRTRAB aeeeeneer XK 0 
RABSC_RBF = 0 § TSTSSTART_DTS 444 RG 02 
RABSW"RSZ = 000000 VAL_K_BACR_NO = $008 0 
READ_CINE 0000089 R 08 VAL_K_DISP_NO = 308 0 

$s 0000000 RG 0 VAL_K_FLOW MESS = 38 0 
Biloss = 00000001 VAL_K_NAK_RO = 0000000 
SYSSCONNECT teeeneee GX 0 VAL_K_PRIR_NO = 49454544 
SYSSEXIT aneneenee GX 0 VAL_K_RETU_NO = 0000 44 
SYSSFAO eeeeneee =X VAL_K_STAT_YES = 00000001 
SYSSGET eeneenee GX 0 VAL_K_TEST_DATA = 00000001 
SYSSOPEN aeneeere GX 0 VAL_K_TEST_INTE = 00000003 
SYSSPUTMSG eeeeneee GX 0 VAL_K_TYPE_ABRT = 444444 
TERMINATE 000024A R 0 VAL_K_TYPE_ACCE = 44 001 
TEST_COMPLETE 0000145 R 0 VAL_K_TYPE_NAME = 00000000 
TSTSCHECK_RMS wereenee =X 0 VAL_K_TYPE- SINK = 0000000 
TSTSCHECK SS eeeeeeee =X 0 VLD_M_DISPCAY = B28 0 
TSTSCMODF AB eeereere =X 0 VLD_M_NODENA = 0 

STSC aeeeeere =X 0 VLD_M_NODISPLAY = 00000100 
TST$C D eeaeerene y 0 x 38 0 
TSTSDATA_DTS aeneeene =X 8 = 00 + 
TSTSDISC_DTS eeneeree = 6X LD = 00004000 
TST$GB_DISPLAY eeeeeere KX 0 = 4 44 
TST$GB_PRINT eeneeeee =X 0 = 0020000 
TST$GB_PRTBUF eenereee§ =X 0 

TST$GB_STAT eeneeneer = X 0 

TST$GL_CLOCK eeeeeeee =X 0 

TSTSGL_DTERR eeeeeeee§ KX 0 

TSTSGL_RECVDATA eeneeeee §6X 

TSTS$GL_SECONDS eereeere = §6X 

TSTSGL_SPEED ereneeee §= 6X 

TSTSGL_VALID eereeeee 86x 

TSTSGL_XMITDATA eeeteree § Xx 

TSTSGL_XMITINTE eeeeeeee § 6X 

TST$GQ_FACDESC eeneeree § x 

TST$GQ_INIT eeeeeeee 8 X 

TST$GQ_ LINK eeterere x 

TSTSGO-PARSE eeneeeee § x 

5 hy Mad oly eerereee 

TST$GQ_STAT eeneeeee 8 § X 

TST$GQ_STAT2 eeeneere § YX 

TST$GO_TERM eeerenee § x 

TSTSGT_OTS eeneeere § x 

TSTSGT DITSMSG eeeeeere x 
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| 
ta enema a somes enone d | 
! Psect synopsis ! 
$oeaowreoceeas ess econ t 
PSECT name Allocation PSECT No. Attributes 
» ABS . 8 8 8 ( -) 00 ¢ 9} NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS ( -» QO1¢ #1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
TSTSCODE 000274 ( 628.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
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! Performance indicators ! 


tone eew sane nee eww eee mona t 


Phase Page faults CPU Time Elapsed Time 


Initialization of :00: if : i 
aE processing 1 :00: 
s 1 256 : 
0 
0 


Syabol table sort 


10 Q: 
Symbol table output 1 Q: 
Psect synopsis output 0: 
Cross-reference output 0: 
Assembler run totals 51 00: 


The working set Limit was 1200 pages. 
38462 bytes (76 pages) of virtual memory were used to buffer the intermediate c 
there were 20 pages of symbol table , Sace allocated to hold 392 non-local and 10 focal symbols. 
source lines were read in Pass 1, producing 'y object records in Pass 2. 
pages of virtual memory were used to define 30 macros. 
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: {Macro Library statistics H 


Macro Library name Macros defined 


“$53 38DUA 8: COTSOTR.OBJIDTSDTR.MLB; 1 
55$D0UA28: SYSLIBISTARLET. MLB; 1 
TOTALS (all libraries) 2 


538 GETS were required to define 23 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:DTSMAIN/OBJ=OBJ$:DTSMAIN MSRCS$:DTPREF IX/UPDATE=(ENHS:DTPREF IX) *MSRC$:DTSMAIN/UPDATE=(ENHS:DTSMAIN) 
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